1000 REM------------------------------- 1010 REM 1020 REM" [205][193][206][193][199][197][210]-64 1030 [143] 1040 [143]" RIGHT$NSTRUCTIONS FOR THE USE OF 1050 REM THIS PRODUCTIVITY TOOL 1060 REM 1070 REM" [198]OR THE [195]OMMODORE 64 1080 [143] 1090 [143]" ATNUTHOR: CHR$LEN PEEKODIE 1100 REM" 90 [203]INGSMOUNT [208]K [210]D 1110 [143]" (null)ORONTO, (null)NTARIO 1120 REM (416) 461-3483 1130 REM 1140 REM------------------------------- 1150 Q$=CHR$(34): R$=CHR$(13): H$=CHR$(19) 1160 POKE 53280,6: POKE 53281,12: PRINT CHR$(14)CHR$(8); 1170 GOSUB 3940 1180 PRINT "[205][193][206][193][199][197][210]-64 IS A PRODUCTIVITY TOOL FOR" 1190 PRINT "THE [195]OMMODORE 64. [201]T ALLOWS THE USER" 1200 PRINT "TO MANAGE HIS ACTIVITIES MORE EASILY" 1210 PRINT "THROUGH USE OF A DISK DIRECTORY. [198]ROM" 1220 PRINT "THIS DIRECTORY, THE USER CAN MANAGE HIS" 1230 PRINT "FILES AND LOAD AND RUN PROGRAMS WITH" 1240 PRINT "JUST A FEW SIMPLE KEYSTROKES." 1250 PRINT "[193]T PRESENT, THE PROGRAM IS WRITTEN IN" 1260 PRINT "[194][193][211][201][195] AND SUFFERS FROM THE SLOWNESS OF" 1270 PRINT "THIS LANGUAGE. [212]HE AUTHOR WILL BE CON-" 1280 PRINT "VERTING THIS INTO A TOTALLY [205]ACHINE" 1290 PRINT "[204]ANGUAGE PROGRAM AND INTERFACING IT" 1300 PRINT "WITH THE OPERATING SYSTEM SUCH THAT ITS" 1310 PRINT "PRODUCTIVITY ENHANCING FEATURES WILL BE" 1320 PRINT "FAR GREATER." 1330 PRINT "[212]HE FOLLOWING PAGES CONTAIN DETAILS OF" 1340 PRINT "THE PROGRAM OPERATION." 1350 GOSUB 3900 1360 GOSUB 3940 1370 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][199][197][206][197][210][193][204] [201][206][198][207][175][175][175][175][175][175][175][175][175][175][175][175]" 1380 PRINT "[212]HE DIRECTORY DISPLAY PRESENTED TO YOU" 1390 PRINT "BY THIS PROGRAM CONSISTS OF ALL '[208][210][199]'" 1400 PRINT "FILES ON THE CURRENT DRIVE (SEE THE '[196]'" 1410 PRINT "COMMAND). [212]HEY ARE PACKED IN TO SHOW" 1420 PRINT "40 FILES PER PAGE (SEE THE '[194]' AND '[198]'" 1430 PRINT "COMMANDS)." 1440 PRINT "[212]HE DISPLAY HAS 2 DIFFERENT AREAS: THE" 1450 PRINT "FILE COMMANDS AND THE COMMAND LINE (THE" 1460 PRINT "BOTTOM LINE - 1 WHERE THE '>' PROMPT" 1470 PRINT "CHARACTER IS). [197]ACH AREA HAS A SET OF" 1480 PRINT "VALID COMMANDS WHICH WILL BE EXPLAINED" 1490 PRINT "LATER." 1500 PRINT "[215]HENEVER THE PROGRAM KNOWS THAT THE" 1510 PRINT "DATA IN THE DIRECTORY HAS CHANGED, IE:" 1520 PRINT "BECAUSE IT DID A DELETE OR SOMETHING," 1530 PRINT "IT AUTOMATICALLY RELOADS THE DIRECTORY" 1540 PRINT "SO THAT YOU ARE ALWAYS PRESENTED WITH" 1550 PRINT "THE MOST UP-TO-DATE INFORMATION." 1560 GOSUB 3900 1570 GOSUB 3940 1580 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][201][205][208][210][207][214][197][205][197][206][212][211][175][175][175][175][175][175][175][175][175][175][175][175]" 1590 PRINT "[212]HERE ARE MANY IMPROVEMENTS WHICH WILL" 1600 PRINT "BE MADE TO THIS PROGRAM FOR THE NEXT" 1610 PRINT "RELEASE. [212]HE MAJOR ONE WILL BE THAT THE" 1620 PRINT "PROGRAM WILL BE COMPLETELY RECODED IN" 1630 PRINT "[205]ACHINE [204]ANGAUGE FOR SPEED AND TO EASE" 1640 PRINT "THE INTERFACE TO THE OPERATING SYSTEM." 1650 PRINT "[212]HIS INTERFACE WILL BE SUCH THAT IF IN" 1660 PRINT "[205][193][206][213][193][204] MODE, THE DISPLAY CAN BE CALLED" 1670 PRINT "UP WITH 1 KEYSTROKE. [201]F IN [193][213][212][207] MODE," 1680 PRINT "THE DISPLAY WILL BE AUTOMATICALLY PUT" 1690 PRINT "ON THE SCREEN WHEN THE SYSTEM REGAINS" 1700 PRINT "CONTROL FROM A PROGRAM. [201]N THIS MODE," 1710 PRINT "[205][193][206][193][199][197][210]-64 WILL APPEAR LIKE A RESIDENT" 1720 PRINT "MENU, ALLOWING THE USER TO GO OFF AND" 1730 PRINT "RUN PROGRAMS, ALWAYS RETURNING TO THE" 1740 PRINT "MENU WITH NO CHANGES TO HIS EXISTING" 1750 PRINT "PROGRAMS. [212]HIS, COUPLED WITH THE EASY" 1760 PRINT "DISK FILE MANIPULATION, MAKES FOR A" 1770 PRINT "REAL PRODUCTIVITY IMPROVEMENT." 1780 GOSUB 3900 1781 GOSUB 3940 1782 PRINT "[208].[211]............" 1783 PRINT "[201]'VE RECENTLY NOTICED THAT THE NAME OF" 1784 PRINT "'[205]ANAGER-64' IS ALREADY IN USE, SO IT" 1785 PRINT "WILL BE CHANGED TO '[211]ESSION [205]ANAGER'." 1786 PRINT "[203]EEP YOUR EYES OPEN FOR IT!" 1787 PRINT "[201]F YOU THINK OF ANY USEFUL CHANGES FOR" 1788 PRINT "THIS PROGRAM, PLEASE LEAVE ME A PRIVATE" 1789 PRINT "MESSAGE ON THE [212][208][213][199] [194][194][211]. [212]HANKS!": GOSUB 3900 1790 GOSUB 3940 1800 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][205][193][201][206] [205][197][206][213][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 1810 PRINT "[198]ILE COMMANDS:" 1820 PRINT "1 [195][144] [195]OPY 2 [196][144] [196]ELETE" 1830 PRINT "3 [204][144] [204]OAD 4 [205][144] [205][204] LOAD" 1840 PRINT "5 [206][144] [206]EW NAME 6 [210][144] LOAD & [210]UN" 1850 PRINT "7 [211][144] [205][204] LOAD & [211]YS" 1860 PRINT "[195]OMMAND LINE (LINE 24):" 1870 PRINT "8 [193][144] [193]UTO MODE 9 [194][144] PAGE [194]ACK" 1880 PRINT "10 [195][144] [195]OLOUR CHG 11 [196][144] [196]ISK DATA" 1890 PRINT "12 [198][144] PAGE [198]WD 13 [200][144] [200]ELP" 1900 PRINT "14 [205][144] [205]ANUAL MODE 15 [210][144] [210]ELOAD DIR" 1910 PRINT "[193]NYWHERE ON THE SCREEN:" 1920 PRINT "16 [195][211][210][144] [195]URSOR CONTROL UP,DN,LT,RT" 1930 PRINT "17 [210][212][206][144] [197]XECUTE FILE COMMANDS. [201]F THERE" 1940 PRINT " ARE NO FILE COMMANDS - EXIT." 1950 PRINT "18 [200][207][205][197][144] [208]UT CURSOR AT TOP FILE NAME" 1960 PRINT "19 [196][197][204][144] [196]ELETE LAST KEYSTROKE" 1970 PRINT "20 _[144] [197]SCAPE FROM DATA ENTRY" 1980 PRINT "[197]NTER THE COMMAND NUMBER TO BE EXPLAIN-" 1990 PRINT "ED (1-20), [210][197][212][213][210][206] GO TO SEQUENTIALLY," 2000 I=0: INPUT "OR 99 TO EXIT:";I 2010 IF I=99 THEN PRINT "[147][154]"CHR$(9)CHR$(142);: POKE 53280,14: POKE 53281,6: END 2020 IF I<1 OR I>20 GOTO 2060 2030 IF I>10 GOTO 2050 2040 ON I GOTO 2060,2170,2280,2370,2460,2560,2650,2760,2850,2930 2050 ON I-10 GOTO 3020,3110,3190,3260,3350,3450,3550,3660,3720,3800 2060 GOSUB 3940 2070 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][195] [195]OPY[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 2080 PRINT "[208]LACED BESIDE A FILE NAME ON THE DIR-" 2090 PRINT "ECTORY DISPLAY, THIS WILL CAUSE THE" 2100 PRINT "PROGRAM TO INVOKE THE 1541 '[195][207][208][217]' COMM-" 2110 PRINT "AND. [212]HE PROGRAM WILL FIRST ASK YOU" 2120 PRINT "FOR A NAME FOR THE COPY OF THE FILE AND" 2130 PRINT "THEN WILL CREATE A FILE OF THAT NAME" 2140 PRINT "WHICH IS OTHERWISE IDENTICAL TO THE" 2150 PRINT "ORIGINAL FILE." 2160 GOSUB 3900 2170 GOSUB 3940 2180 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][196] [196]ELETE[175][175][175][175][175][175][175][175][175][175][175][175][175]" 2190 PRINT "[208]LACED BESIDE A FILE NAME ON THE DIR-" 2200 PRINT "ECTORY DISPLAY, THIS WILL CAUSE THE" 2210 PRINT "PROGRAM TO INVOKE THE 1541 '[211][195][210][193][212][195][200]'" 2220 PRINT "COMMAND. [212]HE IDENTIFIED FILE WILL BE" 2230 PRINT "DELETED FROM THE DISK. [212]HE MESSAGE ON" 2240 PRINT "THE BOTTOM LINE INDICATES THAT SOME" 2250 PRINT "FILES ACTUALLY WERE SCRATCHED. [208]ATTERN" 2260 PRINT "MATCHING IS, OF COURSE, NOT SUPPORTED." 2270 GOSUB 3900 2280 GOSUB 3940 2290 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][204] [204]OAD[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 2300 PRINT "[208]LACED BESIDE A FILE NAME ON THE DIR-" 2310 PRINT "ECTORY DISPLAY, THIS WILL CAUSE THE" 2320 PRINT "PROGRAM TO STOP AND LOAD THE IDENTIFIED" 2330 PRINT "FILE. [212]HE LOAD WILL BE THE RELOCATING" 2340 PRINT "TYPE, IE:" 2350 PRINT TAB(10)"[204][207][193][196] '[208][199][205]',8" 2360 GOSUB 3900 2370 GOSUB 3940 2380 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][205] [205][204] LOAD[175][175][175][175][175][175][175][175][175][175][175][175]" 2390 PRINT "[208]LACED BESIDE A FILE NAME ON THE DIR-" 2400 PRINT "ECTORY DISPLAY, THIS WILL CAUSE THE" 2410 PRINT "PROGRAM TO STOP AND LOAD THE IDENTIFIED" 2420 PRINT "[205][204] PROGRAM. [212]HE LOAD WILL BE OF THE" 2430 PRINT "NON-RELOCATING TYPE, IE:" 2440 PRINT TAB(10)"[204][207][193][196] '[205][204]',8,1" 2450 GOSUB 3900 2460 GOSUB 3940 2470 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206] [206]EW NAME[175][175][175][175][175][175][175][175][175][175][175]" 2480 PRINT "[208]LACED BESIDE A FILE NAME ON THE DIR-" 2490 PRINT "ECTORY DISPLAY, THIS WILL CAUSE THE" 2500 PRINT "PROGRAM TO INVOKE THE 1541 '[210][197][206][193][205][197]'" 2510 PRINT "COMMAND. [217]OU WILL BE ASKED FOR THE" 2520 PRINT "NEW NAME FOR THE FILE AND THEN THE" 2530 PRINT "PROGRAM WILL CAUSE THE NAME TO BE" 2540 PRINT "CHANGED AS REQUESTED." 2550 GOSUB 3900 2560 GOSUB 3940 2570 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][210] LOAD & [210]UN[175][175][175][175][175][175][175][175][175]" 2580 PRINT "[208]LACED BESIDE A FILE NAME ON THE DIR-" 2590 PRINT "ECTORY DISPLAY, THIS WILL CAUSE THE" 2600 PRINT "PROGRAM TO STOP, LOAD THE FILE AND THEN" 2610 PRINT "START IT RUNNING. [212]HE LOAD WILL BE OF" 2620 PRINT "THE RELOCATING TYPE, IE:" 2630 PRINT TAB(10)"[204][207][193][196] '[208][199][205]',8"R$TAB(10)"[210][213][206]" 2640 GOSUB 3900 2650 GOSUB 3940 2660 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][211] [205][204] LOAD & [211]YS[175][175][175][175][175][175]" 2670 PRINT "[208]LACED BESIDE A[160] FILE NAME ON THE DIR-" 2680 PRINT "ECTORY DISPLAY, THIS WILL CAUSE THE" 2690 PRINT "PROGRAM TO STOP, LOAD THE [205][204] FILE AND" 2700 PRINT "SYS TO THE STARTING ADDRESS. [217]OU WILL" 2710 PRINT "BE ASKED TO PROVIDE THE STARTING ADD-" 2720 PRINT "RESS IN DECIMAL. [212]HE LOAD WILL BE OF" 2730 PRINT "THE NON-RELOCATING TYPE, IE:" 2740 PRINT TAB(10)"[204][207][193][196] '[205][204]',8,1"R$TAB(10)"[211][217][211] #####" 2750 GOSUB 3900 2760 GOSUB 3940 2770 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][193] [193]UTO MODE[175][175][175][175][175][175][175][175][175][175]" 2780 PRINT "[198]ROM THE COMMAND LINE (LINE 24), THIS" 2790 PRINT "ALLOWS YOU TO CHANGE THE MODE OF OPER-" 2800 PRINT "ATION OF THE PROGRAM. [212]HIS WILL ONLY" 2810 PRINT "HAVE AN EFFECT ONCE THE PROGRAM IS" 2820 PRINT "IMPROVED TO INTERFACE WITH THE OPERAT-" 2830 PRINT "ING SYSTEM OF THE [195]64." 2840 GOSUB 3900 2850 GOSUB 3940 2860 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][194] PAGE [194]ACK[175][175][175][175][175][175][175][175][175][175]" 2870 PRINT "[198]ROM THE COMMAND LINE (LINE 24), THIS" 2880 PRINT "ALLOWS YOU TO PAGE BACKWARDS WITHIN THE" 2890 PRINT "DIRECTORY DISPLAY. [211]INCE A DISK CAN" 2900 PRINT "HAVE UP TO 144 FILES ON IT, IT MAY TAKE" 2910 PRINT "SEVERAL PAGES TO SHOW THEM ALL TO YOU." 2920 GOSUB 3900 2930 GOSUB 3940 2940 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][195] [195]OLOUR CHG[175][175][175][175][175][175][175][175][175]" 2950 PRINT "[198]ROM THE COMMAND LINE (LINE 24), THIS" 2960 PRINT "ALLOWS YOU TO CHANGE THE COLOURS USED" 2970 PRINT "TO DISPLAY DATA ON THE SCREEN. [212]HE" 2980 PRINT "COLOURS WHICH MAY BE CHANGED ARE THE" 2990 PRINT "BORDER, BACKGROUND, TITLES, COMMANDS," 3000 PRINT "PROGRAMS AND ERROR MESSAGES." 3010 GOSUB 3900 3020 GOSUB 3940 3030 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][196] [196]ISK DATA[175][175][175][175][175][175][175][175][175][175]" 3040 PRINT "[198]ROM THE COMMAND LINE (LINE 24), THIS" 3050 PRINT "ALLOWS YOU TO CHANGE THE DEFAULT DATA" 3060 PRINT "USED WHEN ACCESSING THE DISK DIRECTORY." 3070 PRINT "[212]HE INITIAL DEFAULTS ARE DRIVE # = 8," 3080 PRINT "AND SUB-DRIVE # = 0, SO IT IS CORRECTLY" 3090 PRINT "SETUP FOR A SINGLE 1541 DRIVE." 3100 GOSUB 3900 3110 GOSUB 3940 3120 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][198] PAGE [198]WD[175][175][175][175][175][175][175][175][175][175][175]" 3130 PRINT "[198]ROM THE COMMAND LINE (LINE 24), THIS" 3140 PRINT "ALLOWS YOU TO PAGE FOREWARD WITHIN THE" 3150 PRINT "DISK DIRECTORY. [211]INCE A DISK CAN HAVE" 3160 PRINT "UP TO 144 FILES ON IT, IT MAY TAKE" 3170 PRINT "SEVERAL PAGES TO SHOW YOU ALL OF THEM." 3180 GOSUB 3900 3190 GOSUB 3940 3200 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][200] [200]ELP[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 3210 PRINT "[198]ROM THE COMMAND LINE (LINE 24), THIS" 3220 PRINT "ALLOWS YOU TO CALL-UP A ONE PAGE HELP" 3230 PRINT "DISPLAY WHICH HAS A BRIEF DESCRIPTION" 3240 PRINT "OF EACH OF THE VALID COMMANDS." 3250 GOSUB 3900 3260 GOSUB 3940 3270 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][205] [205]ANUAL[175][175][175][175][175][175][175][175][175][175][175][175][175]" 3280 PRINT "[198]ROM THE COMMAND LINE (LINE 24), THIS" 3290 PRINT "ALLOWS YOU TO CHANGE THE MODE OF OPER-" 3300 PRINT "ATION OF THE PROGRAM. [212]HIS WILL ONLY" 3310 PRINT "HAVE AN EFFECT ONCE THE PROGRAM IS" 3320 PRINT "IMPROVED TO INTERFACE WITH THE OPERAT-" 3330 PRINT "ING SYSTEM OF THE [195]64." 3340 GOSUB 3900 3350 GOSUB 3940 3360 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][210] [210]ELOAD DIR[175][175][175][175][175][175][175][175][175]" 3370 PRINT "[198]ROM THE COMMAND LINE (LINE 24), THIS" 3380 PRINT "ALLOWS YOU TO FORCE THE PROGRAM TO RE-" 3390 PRINT "LOAD THE DIRECTORY FROM THE DISK. [212]HE" 3400 PRINT "PROGRAM WILL RELOAD ANYWAY EVERY TIME" 3410 PRINT "IT KNOWS THERE HAS BEEN A CHANGE, BUT" 3420 PRINT "IT WOULD NOT KNOW, FOR EXAMPLE, IF YOU" 3430 PRINT "CHANGED DISKETTES." 3440 GOSUB 3900 3450 GOSUB 3940 3460 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][195][211][210] [195]URSOR CONTROL[175][175][175][175][175][175]" 3470 PRINT "[198]ROM ANY PLACE ON THE SCREEN, YOU" 3480 PRINT "MAY USE THE CURSOR CONTROL KEYS TO MOVE" 3490 PRINT "AROUND. [212]HE PROGRAM WATCHES AND WON'T" 3500 PRINT "LET YOU GO TO ANY IMPROPER PLACES. [201]T" 3510 PRINT "MOVES YOU AROUND THE COMMAND AREA IN" 3520 PRINT "FRONT OF THE FILE NAMES AND UP AND DOWN" 3530 PRINT "TO THE COMMAND LINE." 3540 GOSUB 3900 3550 GOSUB 3940 3560 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][210][212][206] [210]ETURN[175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 3570 PRINT "[212]HE RETURN KEY HAS SEVERAL FUNCTIONS." 3580 PRINT "[201]T IS USED AT THE END OF DATA ENTRY, IE" 3590 PRINT "AFTER YOU PICK A NEW FILE NAME OR DISK" 3600 PRINT "NUMBER. [201]T IS ALSO USED TO CAUSE THE" 3610 PRINT "PROGRAM TO READ THE COMMANDS BESIDE THE" 3620 PRINT "FILE NAMES AND[160] EXECUTE THEM. [201]F THERE" 3630 PRINT "ARE NO COMMANDS, THE PROGRAM RETURNS TO" 3640 PRINT "NORMAL [194][193][211][201][195] OPERATION." 3650 GOSUB 3900 3660 GOSUB 3940 3670 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][200][207][205][197] CURSOR [200][207][205][197][175][175][175][175][175][175][175][175][175]" 3680 PRINT "[198]ROM ANY[160] POSITION ON THE[160] SCREEN, THE" 3690 PRINT "'[200][207][205][197]' KEY WILL[160] MOVE THE CURSOR TO THE" 3700 PRINT "TOP FILE NAME ON THE DISPLAY." 3710 GOSUB 3900 3720 GOSUB 3940 3730 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][196][197][204] [196]ELETE CHAR[175][175][175][175][175][175][175][175][175]" 3740 PRINT "[212]HE DELETE KEY WILL DELETE FILE COMM-" 3750 PRINT "ANDS IF THE CURSOR IS OVER THE COMMAND." 3760 PRINT "[201]T WILL ALSO DELETE CHARACTERS ENTERRED" 3770 PRINT "AS PART OF DATA ENTRY OF FILE NAMES OR" 3780 PRINT "NUMERIC DATA." 3790 GOSUB 3900 3800 GOSUB 3940 3810 PRINT "[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]_ BACK ARROW[175][175][175][175][175][175][175][175][175][175]" 3820 PRINT "[212]HE BACK ARROW KEY IS THE ONLY WAY TO" 3830 PRINT "ESCAPE FROM DATA ENTRY. [201]F YOU SOMEHOW" 3840 PRINT "GOT INTO A NUMERIC OR CHARACTER DATA" 3850 PRINT "ENTRY MODE, OR DECIDED YOU DIDNT REALLY" 3860 PRINT "WANT TO ENTER ANY DATA, PRESSING THE" 3870 PRINT "BACK ARROW KEY WILL CANCEL THE DATA" 3880 PRINT "ENTRY REQUEST." 3890 GOTO 1350 3900 PRINT "[210][197][212][213][210][206]=NEXT PAGE / [200][207][205][197]=MAIN MENU[144]"; 3910 GET K$: IF K$=R$ THEN RETURN 3920 IF K$=H$ THEN GOTO 1790 3930 GOTO 3910 3940 PRINT "[147][144]"TAB(15)"[205][193][206][193][199][197][210]-64[146]": RETURN